home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / 2400.sda / CIATEST64.ML < prev    next >
Text File  |  2009-10-10  |  2KB  |  51 lines
  1. 9000  ;"CIATEST64.ML"
  2. 9010  *       =$3200         ;12800
  3. 9020  N       LDA #$54
  4. 9030          LDX #$62
  5. 9040          BIT $FB        ;DOING TIMER B?
  6. 9050          BMI TB1        ;YES
  7. 9060          TAX            ;NO, SWITCH A,X
  8. 9070          LDA #$62
  9. 9080  TB1     LDY #$03
  10. 9090          STA $DD04      ;TIMER A
  11. 9100          STY $DD05
  12. 9110          STX $DD06      ;TIMER B
  13. 9120          STY $DD07
  14. 9130          LDA #$11       ;START BOTH
  15. 9140          STA $DD0E
  16. 9150          STA $DD0F
  17. 9160          LDX #$02       ;TIMER B FLAG
  18. 9170          LDY #$07       ;  AND HI BYTE
  19. 9180          BIT $FB        ;DOING TIMER B?
  20. 9190          BMI TB2        ;YES
  21. 9200          DEX            ;TIMER A FLAG
  22. 9210          LDY #$05       ;  AND HI BYTE
  23. 9220  TB2     STX $FC
  24. 9230          STY BEFORE+1   ;OVERWRITE
  25. 9240          STY AFTER+1
  26. 9250          TXA            ;ENABLE THE
  27. 9260          EOR #$83       ;  OTHER TIMER
  28. 9270          LDX #<NEWNMI
  29. 9280          LDY #>NEWNMI
  30. 9290          STX $0318
  31. 9300          STY $0319
  32. 9310          LDX $DD0D      ;CLEAR FLAGS
  33. 9320          STA $DD0D      ;SET ENABLE
  34. 9330          RTS
  35. 9340  NEWNMI  PHA
  36. 9350          TXA
  37. 9360          PHA
  38. 9370          TYA
  39. 9380  BEFORE  LDY $DD07      ;SAMPLE HI BYTE
  40. 9390          PHA
  41. 9400          LDA $DD0D      ;READ REGISTER
  42. 9410          CLD
  43. 9420  AFTER   CPY $DD07      ;TIMEOUT?
  44. 9430          BCS EXIT       ;NO
  45. 9440          ORA $DD0D      ;READ AGAIN
  46. 9450          AND $FC        ;WAS FLAG SET?
  47. 9460          BNE EXIT       ;YES
  48. 9470          LDA #$2A       ;NO, PRINT "*"
  49. 9480          JSR $FFD2
  50. 9490  EXIT    JMP $FEBC      ;DO REGS, RTI
  51.